PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/Organizational Aids/ClassRoom Aids/Class Administrator 1.2/SetUpStack/card_2846.txt

Text File | 1988-03-14 | 5.0 KB | 228 lines

-- card: 2846 from stack: in
-- bmap block id: 8457
-- flags: 0000
-- background id: 2754
-- name: Configuration


-- part 3 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=382 top=128 right=156 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Configure
----- HyperTalk script -----
on mouseUp
  global A,B,C,D
  put card field "B" into B
  put card field "A" into A
  put card field "C" into C
  put card field "D" into D
  repeat with x = 2 to 6
    go to card x
    if field 1 of this card is not empty then
      domenu "Save a Copy..."
      ask "What name did you give the stack?"
      put it into stackname
      go to stackname
      repeat with m = 7 down to 1
        if m = x then next repeat
        go to card m
        put m into msg
        domenu "delete card"
      end repeat
      put "This may take a few minutes" into msg
      doSeatingChart
      hide msg
      set lockscreen to true
      set cursor to 4
      doProfiles
      doGrades
      doAttendance
      set lockscreen to false
    end if
    go to setupstack
  end repeat
  go to first card
end mouseUp



on doSeatingChart
  go to card "SeatingChart"
  repeat with z = 2 to 36
    set the script of field z to the script of field 1
  end repeat
end doSeatingChart

on DoProfiles
  global A,B,C,D
  go to card "ProfileTemplate"
  doMenu "Copy Card"
  repeat with x = 1 to 36
    go to last card
    put word 1 of field x of card "SeatingChart" into temp1
    put word 2 of field x of card "SeatingChart" into temp2
    if temp1 is empty then
      next repeat
    end if
    doMenu "Paste Card"
    put A into card field "A"
    put B into card field "B"
    put C into card field "C"
    put D into card field "D"
    put temp1 && temp2 into field "Name"
    put char 1 of temp1 & temp2 & "Profile" into cardname
    get name of this card
    set name of this card to cardname
  end repeat
end DoProfiles

on DoGrades
  global ClassName, Period,stackname
  go to card "GradesTemplate"
  doMenu "Copy Card"
  repeat with x = 1 to 36
    go to last card
    put word 1 of field x of card "SeatingChart" into temp1
    put word 2 of field x of card "SeatingChart" into temp2
    if temp1 is empty then
      next repeat
    end if
    doMenu "Paste Card"
    put temp1 && temp2 into field "Name"
    put char 1 of temp1 & temp2 & "Grades" into cardname
    set name of this card to cardname
    put ClassName into card field "Class"
    put Period into card field "Period"
  end repeat
end DoGrades

on DoAttendance
  go to card "AttendanceTemplate"
  doMenu "Copy Card"
  repeat with x = 1 to 36
    go to last card
    put word 1 of field x of card "SeatingChart" into temp1
    put word 2 of field x of card "SeatingChart" into temp2
    if temp1 is empty then
      next repeat
    end if
    doMenu "Paste Card"
    put temp1 && temp2 into card field "Name"
    put char 1 of temp1 & temp2 & "Attendance" into cardname
    set name of this card to cardname
    put ClassName into card field "Class"
    put period into card field "Period"
  end repeat
  put "Your class record is now complete" into msg
end DoAttendance





-- part 12 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=58 top=255 right=305 bottom=101
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: A


-- part 13 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=120 top=255 right=305 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: B


-- part 14 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=184 top=255 right=305 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: C


-- part 15 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=254 top=255 right=305 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: D


-- part 16 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=49 top=81 right=217 bottom=339
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part contents for card part 12
----- text -----
97.5
92.5
90.0

-- part contents for card part 13
----- text -----
87.5
82.5
80.0
77.5

-- part contents for card part 14
----- text -----
77.5
72.5
70.0

-- part contents for card part 15
----- text -----
67.5
62.5
60.0

-- part contents for card part 16
----- text -----
Before proceeding, check to make sure that you have filled out all the appropriate information for your classes.